home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / ob2s.src < prev    next >
Text File  |  1990-05-25  |  322b  |  12 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< \->STR DUP
  3.   IF "'" POS 1 ==
  4.   THEN DUP SIZE 1 - 2 SWAP SUB
  5.   END
  6. \>>
  7.  
  8. @ OB->S (OBject-to-String) by Joseph K. Horn
  9. @ Same as native ->STR function, except for names & algebraics,
  10. @ which get their leading & trailing single-quotes removed.
  11. @ Thus 'FRED' turns into "FRED", not "'FRED'".
  12.